home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 004a / grammar2.zip / UPD1.BAT < prev    next >
DOS Batch File  |  1989-12-29  |  6KB  |  157 lines
  1. echo off
  2. cls
  3. REM  UPD1.BAT FOR CG 2.0 (December 1989)
  4. echo Current drive and directory:
  5. cd
  6. echo  ╔═══════════════════════════════════════════════════════════════════════╗
  7. echo  ║                                                                       ║
  8. :AGAIN1                                                                       ║
  9. echo  ║     This procedure will update an existing Correct Grammar            ║
  10. echo  ║     installation to the current product level.  Updated files         ║
  11. echo  ║     will be copied to the current hard drive and directory.           ║
  12. echo  ║     Is this what you want to do? (Y/N)                                ║
  13. echo  ║                                                                       ║
  14. echo  ║     If this is not what you want, type N.  Restart the update         ║
  15. echo  ║     from the drive and subdirectory to which you want Correct         ║
  16. echo  ║     Grammar updated.                                                  ║
  17. echo  ║                                                                       ║
  18. echo  ║                      Lifetree Software Inc.                           ║
  19. echo  ║                                                                       ║
  20. echo  ╚═══════════════════════════════════════════════════════════════════════╝
  21. %1LOCATE 07,43
  22. %1GETYNCG
  23. :GETANS
  24. IF ERRORLEVEL 3 GOTO AGAIN
  25. IF ERRORLEVEL 2 GOTO QUIT1
  26. ECHO Y
  27. REM DISK 1
  28. if not exist PKXARC.COM copy %1PKXARC.COM >nul
  29. if not exist GETYNCG.COM copy %1GETYNCG.COM >nul
  30. if not exist LOCATE.COM copy %1LOCATE.COM >nul
  31. if not exist GETNUM.EXE pkxarc -r %1CG1 GETNUM.EXE >nul
  32. if not exist CLS.BAT pkxarc -r %1CG1 CLS.BAT >nul
  33. copy %1CG.EXE >nul
  34. if exist %13 goto MEDIA3
  35. LOCATE 00,00
  36. copy CLS.BAT con >nul
  37. goto TWO
  38. :BAD2
  39. if exist %1CG2.ARC goto CONT2
  40. LOCATE 02,00
  41. echo  ║     SORRY, WRONG DISK!
  42. :TWO
  43. LOCATE 04,00
  44. echo  ║     Insert your Correct Grammar DISK 2 in your diskette drive.  
  45. echo  ║     Press any key when ready.
  46. pause >nul
  47. if not exist %1CG2.ARC goto BAD2
  48. :CONT2
  49. LOCATE 00,00
  50. copy CLS.BAT con >nul
  51. LOCATE 03,00
  52. echo  ║     Copying Correct Grammar files.  This may take over one
  53. echo  ║     minute.  Please stand by . . .
  54. :MEDIA3
  55. PKXARC -r %1CG2 CGRAMMAR.EXE  >nul  
  56. PKXARC -r %1CG2 CGRAMMAR.OV0  >nul  
  57. if not exist CGRAMMAR.OV0 goto NOROOM
  58. LOCATE 07,00
  59. echo  ║     Still working.  Thank you for your patience.
  60. goto THREE
  61. :BAD3
  62. if exist %1CG3.ARC goto CONT3
  63. LOCATE 02,00
  64. echo  ║     SORRY, WRONG DISK!
  65. :THREE
  66. LOCATE 00,00
  67. copy CLS.BAT con >nul
  68. LOCATE 04,00
  69. if exist %13 echo  ║     Insert your Correct Grammar DISK 2 in your diskette drive.  
  70. if not exist %13 echo  ║     Insert your Correct Grammar DISK 3 in your diskette drive.  
  71. echo  ║     Press any key when ready.
  72. pause >nul
  73. if not exist %1CG3.ARC goto BAD3
  74. :CONT3
  75. LOCATE 00,00
  76. copy CLS.BAT con >nul
  77. LOCATE 03,00
  78. echo  ║     Copying Correct Grammar files.  This may take over one
  79. echo  ║     minute.  Please stand by . . .
  80. if not exist CG-PIF.DVP PKXARC -x %1CG3 CG-PIF.DVP >nul
  81. if not exist CGDIC.SYS PKXARC -x %1CG3 CGDIC.SYS >nul
  82. PKXARC -r %1CG3 WHATSNEW.CG >nul
  83. PKXARC -r %1CG3 WHATSNEW.BAT >nul
  84. PKXARC -r %1CG3 READMECG.TXT >nul
  85. PKXARC -r %1CG3 CGRAMMAR.OV1  >nul  
  86. if not exist CGRAMMAR.OV1 goto NOROOM
  87. PKXARC -r %1CG3 CGRAMMAR.OV2  >nul  
  88. if not exist CGRAMMAR.OV2 goto NOROOM
  89. PKXARC -r %1CG3 CGRAMMAR.OV3  >nul  
  90. if not exist CGRAMMAR.OV3 goto NOROOM
  91. PKXARC -r %1CG3 CGRAMMAR.OV4  >nul  
  92. if not exist CGRAMMAR.OV4 goto NOROOM
  93. PKXARC -r %1CG3 CGRAMMAR.OV5  >nul  
  94. if not exist CGRAMMAR.OV5 goto NOROOM
  95. goto ASKWP
  96. :NOROOM
  97. cls
  98. echo  ╔═══════════════════════════════════════════════════════════════════════╗
  99. echo  ║                                                                       ║
  100. echo  ║     Sorry, you are out of disk space.  Cannot continue.               ║
  101. echo  ║                                                                       ║
  102. echo  ║     To update Correct Grammar, you need 1.2 Mb of available space     ║
  103. echo  ║     on your hard disk.   Please correct the problem and try again.    ║
  104. echo  ║                                                                       ║
  105. echo  ╚═══════════════════════════════════════════════════════════════════════╝
  106. goto QUIT
  107. :SORRY
  108. LOCATE 00,00
  109. copy CLS.BAT con >nul
  110. LOCATE 02,00
  111. echo  ║     Sorry, that is not a valid selection.  
  112. goto ASKWP1
  113. :ASKWP
  114. LOCATE 00,00
  115. copy CLS.BAT con >nul
  116. LOCATE 02,00
  117. echo  ║     Which word processor do you usually use? 
  118. :ASKWP1
  119. echo  ║
  120. echo  ║     1.  WordPerfect 5.1 
  121. echo  ║     2.  WordPerfect 5.0 
  122. echo  ║     3.  WordPerfect 4.2 
  123. echo  ║     4.  WordStar Professional 3, 4 or 5
  124. echo  ║     5.  Sidekick
  125. echo  ║     6.  Microsoft Word 5
  126. echo  ║     7.  Microsoft Word 3 or 4                                         ║
  127. echo  ║     8.  Microsoft Works 1 or 2                                        ║
  128. echo  ║     9.  PC-Write                                                      ║
  129. echo  ║    10.  XyWrite                                                       ║
  130. echo  ║                                                                       ║
  131. echo  ║    11.  None of the above (ASCII files)                               ║
  132. echo  ║                                                                       ║
  133. echo  ║    Please type your choice and press Enter:                           ║
  134. echo  ║                                                                       ║
  135. echo  ╚═══════════════════════════════════════════════════════════════════════╝
  136. LOCATE 17,48
  137. GETNUM
  138. if errorlevel == 12 goto SORRY
  139. if errorlevel == 11 UPD2 %1 0
  140. if errorlevel == 10 UPD2 %1 9
  141. if errorlevel == 9 UPD2 %1 8 
  142. if errorlevel == 8 UPD2 %1 7
  143. if errorlevel == 7 UPD2 %1 6 
  144. if errorlevel == 6 UPD2 %1 5 
  145. if errorlevel == 5 UPD2 %1 4 
  146. if errorlevel == 4 UPD2 %1 3 
  147. if errorlevel == 3 UPD2 %1 2
  148. if errorlevel == 2 UPD2 %1 1 0
  149. if errorlevel == 1 UPD2 %1 1 1
  150. goto SORRY
  151. :QUIT1
  152. %1LOCATE 17,00
  153. goto EXIT
  154. :QUIT
  155. LOCATE 10,00
  156. :EXIT
  157.